********************
*Replication Code for Box-Steffensmeier et al., 
*"Advising, Consenting, Delaying, and Expediting"
*If you use these data, please cite the original paper published in 
*Studies in American Political Development
********************

*************
*Table 3: Event History Estimates of Time to Senate Action
*Use Nominee-Centered Publication Data.dta
*************

use "Nominee-Centered Publication Data.dta"

*column 1

stset time_to_committee_action, failure(reported)
streg appnstrong_pres_party neg_pres_party appnstrong_opp neg_opp unified_govt yr_pres_term court_type chairpresdist1 chairpresdist2 senpresdist1 senpresdist2 renomination if obs !=328, d(gamma)

*column 2

stset time_latest, failure(confirmed)
streg appnstrong_pres_party neg_pres_party appnstrong_opp neg_opp unified_govt yr_pres_term court_type chairpresdist1 chairpresdist2 senpresdist1 senpresdist2 renomination if obs !=328, d(gamma)

***********
*Figure 1: estimate the model for column 2 first, then use this post-estimation command
***********

stcurve, haz at1(appnstrong_pres_party = 2) at2(appnstrong_pres_party = 0)

***********
*Table 4: Logit Estimates of Senator Blue Slip Action
*Use Senator-Centered Publication Data.dta
***********

use "Senator-Centered Publication Data.dta"

*column 1

logit pos_bs unified yr_pres_term court_type renomination sen_presdistfirst sen_presdistsecond sen_chairdist1 sen_chairdist2 sens_same_party sen_pres_same_party sensXpres_sameparty, robust

*column 2

logit neg_bs unified yr_pres_term court_type renomination sen_presdistfirst sen_presdistsecond sen_chairdist1 sen_chairdist2 sens_same_party sen_pres_same_party sensXpres_sameparty, robust

************
*Appendix Table A1
*Use Nominee-Centered Publication Data.dta
************

use "Nominee-Centered Publication Data.dta"

*column 1
stset time_to_committee_action, failure(reported)
streg appnstrong_pres_party neg_pres_party appnstrong_opp neg_opp yr_pres_term court_type pres_chair_sameParty senpresdist1 senpresdist2 renomination if obs !=328, d(gamma)



*column 2
stset time_latest, failure(confirmed)
streg appnstrong_pres_party neg_pres_party appnstrong_opp neg_opp yr_pres_term court_type pres_chair_sameParty senpresdist1 senpresdist2 renomination if obs !=328, d(gamma)


************
*Appendix Table A2
*Use Nominee-Centered Publication Data.dta
************

*column 1
stset time_to_committee_action, failure(reported)
streg appnstrong_pres_party neg_pres_party appnstrong_opp neg_opp unified_govt yr_pres_term court_type chairpresdist1 chairpresdist2 senpresdist1 senpresdist2 renomination pos_oppPartyXunified if obs !=328, d(gamma)

*column 2
stset time_latest, failure(confirmed)
streg appnstrong_pres_party neg_pres_party appnstrong_opp neg_opp unified_govt yr_pres_term court_type chairpresdist1 chairpresdist2 senpresdist1 senpresdist2 renomination pos_oppPartyXunified if obs !=328, d(gamma)


************
*Appendix Table A3
*Use Nominee-Centered Publication Data.dta
************

*column 1
stset time_to_committee_action, failure(reported)
streg appnstrong_pres_party neg_pres_party appnstrong_opp neg_opp unified_govt yr_pres_term chairpresdist1 chairpresdist2 senpresdist1 senpresdist2 renomination if court_type==1 & obs !=328, d(gamma)


*column 2
stset time_latest, failure(confirmed)
streg appnstrong_pres_party neg_pres_party appnstrong_opp neg_opp unified_govt yr_pres_term chairpresdist1 chairpresdist2 senpresdist1 senpresdist2 renomination if court_type==1 & obs !=328, d(gamma)



************
*Appendix Table A4
*Use Nominee-Centered Publication Data.dta
************

*column 1
stset time_to_committee_action, failure(reported)
streg appnstrong_pres_party neg_pres_party appnstrong_opp neg_opp unified_govt yr_pres_term chairpresdist1 chairpresdist2 senpresdist1 senpresdist2 renomination if court_type==0, d(gamma)

*column 2
stset time_latest, failure(confirmed)
streg appnstrong_pres_party neg_pres_party appnstrong_opp neg_opp unified_govt yr_pres_term chairpresdist1 chairpresdist2 senpresdist1 senpresdist2 renomination if court_type==0, d(gamma)

